CRSisEqual Function

private function CRSisEqual(CRS1, CRS2) result(isEqual)

return .TRUE. if the two coordinate reference systems are equal

Arguments

Type IntentOptional Attributes Name
type(CRS), intent(in) :: CRS1
type(CRS), intent(in) :: CRS2

Return Value logical


Source Code

FUNCTION CRSisEqual &
!
(CRS1, CRS2) &
!
RESULT (isEqual)

IMPLICIT NONE

!Arguments with intent(in):
TYPE (CRS), INTENT(IN) :: CRS1, CRS2

!Local declarations:
LOGICAL :: isEqual
!------------------end of declarations-----------------------------------------

IF (CRS1 % system == CRS2 % system .AND. &
    CRS1 % ellipsoid == CRS2 % ellipsoid .AND. &
    CRS1 % datum == CRS2 % datum ) THEN
    
    isEqual = .TRUE.
ELSE
    isEqual = .FALSE.
END IF

END FUNCTION CRSisEqual